library(xtable)

print(bind_cols(Sample = c(rep("CloudResearch 1", 4),
                     rep("CloudResearch 2", 2))) %>%
 bind_cols(Outcome = c("Panethnic Identity",
                       "Efficacy Beliefs",
                       "Minority Representation",
                       "Political Knowledge",
                       "Political Knowledge",
                       "Ideology"),
           Model = c("GPCM","GPCM", "GPCM",
                     "2PL", "2PL", "2PL")) %>%
 bind_cols(lapply(list(cr1_panethnic_lr_ef,
                       cr1_efficacy_lr_ef, 
                       cr1_minrep_lr_ef, 
                       cr1_pkscale_lr_ef,
                       cr2_pkscale_lr_ef,
                       cr2_ideology_lr_ef), function(x) 
                        x$LRtest[3:5]) %>%
            bind_rows()) %>%
 mutate(p = round(p, 3), 
        df = paste(round(df, 1))) %>% 
 xtable() %>% print(., include.rownames = F))

print(bind_cols(Sample = c(rep("CloudResearch 1", 4),
                     rep("CloudResearch 2", 2))) %>%
 bind_cols(Outcome = c("Panethnic Identity",
                       "Efficacy Beliefs",
                       "Minority Representation",
                       "Political Knowledge",
                       "Political Knowledge",
                       "Ideology"),
           Model = c("GPCM","GPCM", "GPCM",
                     "2PL", "2PL", "2PL")) %>%
 bind_cols(lapply(list(cr1_panethnic_lr_sp,
                       cr1_efficacy_lr_sp, 
                       cr1_minrep_lr_sp, 
                       cr1_pkscale_lr_sp,
                       cr2_pkscale_lr_sp,
                       cr2_ideology_lr_sp), function(x) 
                        x$LRtest[3:5]) %>%
            bind_rows()) %>%
 mutate(p = round(p, 3), 
        df = paste(round(df, 1))) %>% 
 xtable() %>% print(., include.rownames = F))
